/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / conv / List2HTML.lha / List2HTML / Source / Statements / ASLFileRequest

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2e 41 53 4c 46 69 6c 65 | 52 65 71 75 65 73 74 00 |.ASLFile|Request.|
|00000010| 00 3b 20 46 75 6e 63 74 | 69 6f 6e 20 3a 20 41 53 |.; Funct|ion : AS|
|00000020| 4c 46 69 6c 65 52 65 71 | 75 65 73 74 20 7b 20 74 |LFileReq|uest { t|
|00000030| 69 74 6c 65 2c 20 70 61 | 74 68 2c 20 66 69 6c 65 |itle, pa|th, file|
|00000040| 2c 20 70 61 74 74 65 72 | 6e 20 7d 00 00 3b 20 41 |, patter|n }..; A|
|00000050| 75 74 68 6f 72 20 3a 20 | 50 61 75 6c 20 42 75 72 |uthor : |Paul Bur|
|00000060| 6b 65 79 20 2d 20 62 75 | 72 6b 65 79 40 62 69 67 |key - bu|rkey@big|
|00000070| 66 6f 6f 74 2e 63 6f 6d | 00 00 3b 20 54 68 69 73 |foot.com|..; This|
|00000080| 20 66 75 6e 63 74 69 6f | 6e 20 75 73 65 73 20 4f | functio|n uses O|
|00000090| 53 20 66 75 6e 63 74 69 | 6f 6e 73 20 74 6f 20 63 |S functi|ons to c|
|000000a0| 61 6c 6c 20 75 70 20 74 | 68 65 20 41 53 4c 20 66 |all up t|he ASL f|
|000000b0| 69 6c 65 00 3b 20 72 65 | 71 75 65 73 74 65 72 2e |ile.; re|quester.|
|000000c0| 00 00 3b 20 59 6f 75 20 | 4d 55 53 54 20 68 61 76 |..; You |MUST hav|
|000000d0| 65 20 61 20 73 63 72 65 | 65 6e 20 69 6e 20 75 73 |e a scre|en in us|
|000000e0| 65 21 00 00 3b 20 59 6f | 75 20 63 61 6e 20 63 6f |e!..; Yo|u can co|
|000000f0| 6e 66 69 67 75 72 65 20 | 74 68 65 20 73 69 7a 65 |nfigure |the size|
|00000100| 20 62 79 20 61 6c 74 65 | 72 69 6e 67 20 74 68 65 | by alte|ring the|
|00000110| 20 74 6f 70 2c 6c 65 66 | 74 2c 00 3b 20 77 69 64 | top,lef|t,.; wid|
|00000120| 74 68 20 61 6e 64 20 68 | 65 69 67 68 74 20 76 61 |th and h|eight va|
|00000130| 72 69 61 62 6c 65 73 20 | 77 69 74 68 69 6e 20 74 |riables |within t|
|00000140| 68 65 20 66 75 6e 63 74 | 69 6f 6e 2e 00 00 3b 20 |he funct|ion...; |
|00000150| 49 4d 50 4f 52 54 41 4e | 54 20 4e 4f 54 45 21 21 |IMPORTAN|T NOTE!!|
|00000160| 21 20 59 6f 75 20 77 6f | 6e 27 74 20 73 65 65 20 |! You wo|n't see |
|00000170| 61 6e 79 74 68 69 6e 67 | 20 64 69 66 66 65 72 65 |anything| differe|
|00000180| 6e 74 20 69 66 20 79 6f | 75 27 72 65 00 3b 20 75 |nt if yo|u're.; u|
|00000190| 73 69 6e 67 20 61 20 70 | 61 74 63 68 20 6c 69 6b |sing a p|atch lik|
|000001a0| 65 20 52 54 50 61 74 63 | 68 20 6f 72 20 4d 43 50 |e RTPatc|h or MCP|
|000001b0| 27 73 20 52 65 71 74 6f | 6f 6c 73 20 50 61 74 63 |'s Reqto|ols Patc|
|000001c0| 68 20 66 75 6e 63 74 69 | 6f 6e 21 00 00 80 09 2e |h functi|on!.....|
|000001d0| 73 20 41 53 4c 46 69 6c | 65 52 65 71 75 65 73 74 |s ASLFil|eRequest|
|000001e0| 7b 74 69 74 6c 65 24 2c | 70 61 74 68 6e 61 6d 65 |{title$,|pathname|
|000001f0| 24 2c 66 69 6c 65 6e 61 | 6d 65 24 2c 70 61 74 24 |$,filena|me$,pat$|
|00000200| 7d 00 20 20 2a 73 63 72 | 2e 53 63 72 65 65 6e 3d |}.  *scr|.Screen=|
|00000210| da 02 2e 6c 28 80 b8 20 | cf 01 28 80 d1 20 cf 01 |...l(.. |..(.. ..|
|00000220| 29 29 00 00 20 20 74 6f | 70 2e 77 3d 30 00 20 20 |))..  to|p.w=0.  |
|00000230| 6c 65 66 74 2e 77 3d 30 | 00 20 20 77 69 64 74 68 |left.w=0|.  width|
|00000240| 2e 77 3d b5 8f 2f 32 20 | 3b 20 72 65 6d 6f 76 65 |.w=../2 |; remove|
|00000250| 20 2f 32 20 66 6f 72 20 | 66 75 6c 6c 2d 73 63 72 | /2 for |full-scr|
|00000260| 65 65 6e 20 72 65 71 75 | 65 73 74 65 72 21 20 3b |een requ|ester! ;|
|00000270| 29 00 20 20 68 65 69 67 | 68 74 2e 77 3d b5 90 00 |).  heig|ht.w=...|
|00000280| 00 20 20 80 04 20 54 61 | 67 73 2e 54 61 67 49 74 |.  .. Ta|gs.TagIt|
|00000290| 65 6d 28 31 30 29 00 20 | 20 54 61 67 73 28 30 29 |em(10). | Tags(0)|
|000002a0| 5c 74 69 5f 54 61 67 3d | 23 41 53 4c 46 52 5f 53 |\ti_Tag=|#ASLFR_S|
|000002b0| 63 72 65 65 6e 2c 2a 73 | 63 72 00 20 20 54 61 67 |creen,*s|cr.  Tag|
|000002c0| 73 28 31 29 5c 74 69 5f | 54 61 67 3d 23 41 53 4c |s(1)\ti_|Tag=#ASL|
|000002d0| 46 52 5f 49 6e 69 74 69 | 61 6c 50 61 74 74 65 72 |FR_Initi|alPatter|
|000002e0| 6e 2c 26 70 61 74 24 00 | 20 20 54 61 67 73 28 32 |n,&pat$.|  Tags(2|
|000002f0| 29 5c 74 69 5f 54 61 67 | 3d 23 41 53 4c 46 52 5f |)\ti_Tag|=#ASLFR_|
|00000300| 54 69 74 6c 65 54 65 78 | 74 2c 26 74 69 74 6c 65 |TitleTex|t,&title|
|00000310| 24 00 20 20 54 61 67 73 | 28 33 29 5c 74 69 5f 54 |$.  Tags|(3)\ti_T|
|00000320| 61 67 3d 23 41 53 4c 46 | 52 5f 49 6e 69 74 69 61 |ag=#ASLF|R_Initia|
|00000330| 6c 46 69 6c 65 2c 26 66 | 69 6c 65 6e 61 6d 65 24 |lFile,&f|ilename$|
|00000340| 00 20 20 54 61 67 73 28 | 34 29 5c 74 69 5f 54 61 |.  Tags(|4)\ti_Ta|
|00000350| 67 3d 23 41 53 4c 46 52 | 5f 49 6e 69 74 69 61 6c |g=#ASLFR|_Initial|
|00000360| 44 72 61 77 65 72 2c 26 | 70 61 74 68 6e 61 6d 65 |Drawer,&|pathname|
|00000370| 24 00 20 20 54 61 67 73 | 28 35 29 5c 74 69 5f 54 |$.  Tags|(5)\ti_T|
|00000380| 61 67 3d 23 41 53 4c 46 | 52 5f 49 6e 69 74 69 61 |ag=#ASLF|R_Initia|
|00000390| 6c 4c 65 66 74 45 64 67 | 65 2c 6c 65 66 74 00 20 |lLeftEdg|e,left. |
|000003a0| 20 54 61 67 73 28 36 29 | 5c 74 69 5f 54 61 67 3d | Tags(6)|\ti_Tag=|
|000003b0| 23 41 53 4c 46 52 5f 49 | 6e 69 74 69 61 6c 54 6f |#ASLFR_I|nitialTo|
|000003c0| 70 45 64 67 65 2c 74 6f | 70 00 20 20 54 61 67 73 |pEdge,to|p.  Tags|
|000003d0| 28 37 29 5c 74 69 5f 54 | 61 67 3d 23 41 53 4c 46 |(7)\ti_T|ag=#ASLF|
|000003e0| 52 5f 49 6e 69 74 69 61 | 6c 57 69 64 74 68 2c 77 |R_Initia|lWidth,w|
|000003f0| 69 64 74 68 00 20 20 54 | 61 67 73 28 38 29 5c 74 |idth.  T|ags(8)\t|
|00000400| 69 5f 54 61 67 3d 23 41 | 53 4c 46 52 5f 49 6e 69 |i_Tag=#A|SLFR_Ini|
|00000410| 74 69 61 6c 48 65 69 67 | 68 74 2c 68 65 69 67 68 |tialHeig|ht,heigh|
|00000420| 74 00 20 20 54 61 67 73 | 28 39 29 5c 74 69 5f 54 |t.  Tags|(9)\ti_T|
|00000430| 61 67 3d 23 54 41 47 5f | 45 4e 44 2c 30 00 00 20 |ag=#TAG_|END,0.. |
|00000440| 20 2a 66 69 6c 65 72 65 | 71 2e 46 69 6c 65 52 65 | *filere|q.FileRe|
|00000450| 71 75 65 73 74 65 72 3d | fb 84 28 23 41 53 4c 5f |quester=|..(#ASL_|
|00000460| 46 69 6c 65 52 65 71 75 | 65 73 74 2c 26 54 61 67 |FileRequ|est,&Tag|
|00000470| 73 28 30 29 29 00 20 20 | 80 0b 20 2a 66 69 6c 65 |s(0)).  |.. *file|
|00000480| 72 65 71 00 20 20 20 20 | 6f 6b 2e 6c 3d fb 86 28 |req.    |ok.l=..(|
|00000490| 2a 66 69 6c 65 72 65 71 | 2c 26 54 61 67 73 28 30 |*filereq|,&Tags(0|
|000004a0| 29 29 00 20 20 20 20 80 | 0b 20 6f 6b 00 20 20 20 |)).    .|. ok.   |
|000004b0| 20 20 20 66 24 3d da 02 | 2e 73 28 2a 66 69 6c 65 |   f$=..|.s(*file|
|000004c0| 72 65 71 5c 66 72 5f 44 | 72 61 77 65 72 29 00 20 |req\fr_D|rawer). |
|000004d0| 20 20 20 20 20 80 0b 20 | 66 24 3c 3e 22 22 20 80 |     .. |f$<>"" .|
|000004e0| 21 20 80 0b 20 dc 82 28 | 66 24 2c 31 29 3c 3e 22 |! .. ..(|f$,1)<>"|
|000004f0| 3a 22 20 80 42 20 dc 82 | 28 66 24 2c 31 29 3c 3e |:" .B ..|(f$,1)<>|
|00000500| 22 2f 22 20 80 21 20 66 | 24 3d 66 24 2b 22 2f 22 |"/" .! f|$=f$+"/"|
|00000510| 00 20 20 20 20 20 20 66 | 24 3d 66 24 2b da 02 2e |.      f|$=f$+...|
|00000520| 73 28 2a 66 69 6c 65 72 | 65 71 5c 66 72 5f 46 69 |s(*filer|eq\fr_Fi|
|00000530| 6c 65 29 00 20 20 20 20 | 80 c0 00 20 20 20 20 fb |le).    |...    .|
|00000540| 85 28 2a 66 69 6c 65 72 | 65 71 29 00 20 20 80 c0 |.(*filer|eq).  ..|
|00000550| 00 20 20 80 09 20 80 07 | 20 66 24 00 80 02 20 80 |.  .. ..| f$... .|
|00000560| 09 00 00 3b 20 64 65 6d | 6f 20 3a 00 00 3b 20 46 |...; dem|o :..; F|
|00000570| 69 6e 64 53 63 72 65 65 | 6e 20 30 00 00 3b 20 4e |indScree|n 0..; N|
|00000580| 50 72 69 6e 74 20 22 59 | 6f 75 20 73 65 6c 65 63 |Print "Y|ou selec|
|00000590| 74 65 64 3a 20 22 2c 41 | 53 4c 46 69 6c 65 52 65 |ted: ",A|SLFileRe|
|000005a0| 71 75 65 73 74 7b 22 43 | 68 6f 6f 73 65 20 46 69 |quest{"C|hoose Fi|
|000005b0| 6c 65 22 2c 22 73 3a 22 | 2c 22 73 68 65 6c 6c 2d |le","s:"|,"shell-|
|000005c0| 73 74 61 72 74 75 70 22 | 2c 22 22 7d 00 3b 20 4d |startup"|,""}.; M|
|000005d0| 6f 75 73 65 57 61 69 74 | 00 3b 20 45 6e 64 00    |ouseWait|.; End. |
+--------+-------------------------+-------------------------+--------+--------+